www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\admin_selfmenu.asp
<!--#include file="admin_inc.asp"--> <% '**************************************************** 'Code for EptimeFFMS 'Vision : v1.0 '**************************************************** viewHead "自定义快捷菜单" & "-" & menuList(3,0) dim action : action = getForm("action", "get") Select case action case "modify" : modifyMenu case else : main End Select viewFoot Sub main dim menuStr : menuStr=replaceStr(mid(getSelfMenu,2),"|",vbcrlf) %> <div id="append_parent"></div> <div class="container" id="cpcontainer"> <!--当前导航--> <script type="text/JavaScript">if(parent.$('admincpnav')) parent.$('admincpnav').innerHTML='首页 » <%=menuList(5,0)%> » 自定义快捷菜单 ';</script> <table class="tb"> <tr class="thead"><th colspan="2">自定义快捷菜单</th></tr> <form action="?action=modify" method="post" > <tr> <td colspan="2"><textarea name="menustr" style="width:100%;font-family: Arial, Helvetica, sans-serif;font-size: 14px;" rows="20" dataType="Require" msg="请填写内容"><%=menuStr%></textarea></td> </tr> <tr> <td> <input type="submit" name="Submit" value="修 改" class="btn" /> <input type="button" value="返 回" class="btn" onClick="javascript:history.go(-1)" /></td><td ></td> </tr> </form> </table> <% End Sub Sub modifyMenu dim menustr,xmlstr,menuNode,menuNodeArray,singleNodeArray,menuNodeStr menustr=trimOuterStr(getForm("menustr","post"),vbcrlf) : menustr=replaceStr(menustr,vbcrlf,"|") menuNodeArray=split(menustr,"|") for each menuNode in menuNodeArray menuNodeStr=menuNodeStr&"<menu>"&vbcrlf if not isNul(menuNode) then singleNodeArray=split(menuNode,",") menuNodeStr=menuNodeStr&"<name>"&singleNodeArray(0)&"</name>"&vbcrlf&_ "<link>"&singleNodeArray(1)&"</link>"&vbcrlf else menuNodeStr=menuNodeStr&"<name></name>"&vbcrlf&_ "<link></link>"&vbcrlf end if menuNodeStr=menuNodeStr&"</menu>"&vbcrlf next xmlstr="<?xml version=""1.0"" encoding=""gbk""?>"&vbcrlf&_ "<ideacms>"&vbcrlf&_ "<menulist>"&vbcrlf&_ menuNodeStr&_ "</menulist>"&vbcrlf&_ "</ideacms>"&vbcrlf createTextFile xmlstr,selfMenuXml echo "<script>alert('修改成功');top.location.href='index.asp';</script>" End Sub %>